home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / util4 / forcepns.lha / ForcePens / patch.s < prev    next >
Text File  |  1996-02-06  |  623b  |  34 lines
  1. **************************************************
  2.  
  3.     OPT !
  4.     
  5. ******************************************************
  6.  
  7.     MACHINE 68020
  8.  
  9. ******************************************************
  10.  
  11.     SECTION TEXT,CODE
  12.  
  13. ******************************************************
  14.  
  15.     XDEF    _NewVector
  16.     XDEF _OldVector
  17.     XREF    _newfunc
  18.  
  19. ******************************************************
  20.  
  21. _NewVector:
  22.             dc.w     $4EB9
  23. _OldVector:    dc.l     0
  24.     movem.l    d0-d7/a0-a6,-(SP)
  25.     move.l    d0,a0
  26.     jsr        _newfunc
  27.     movem.l    (sp)+,d0-d7/a0-a6
  28.     rts
  29. ******************************************************
  30.  
  31.     END
  32.  
  33. ******************************************************
  34.